home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -krazy bumpers (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  1.1 KB  |  32 lines
  1. 2 print"[147][142]"
  2. 5 poke53281,0:poke53280,12
  3. 10 print"[147][151]                                        ";
  4. 20 fora=0to20:print" [146]                                       ";:next
  5. 30 print"                                        ";
  6. 40 k=1524:y=40:x=1:v=40:w=1:t=40:u=1:l=1604:m=1684:n=1444:r=40:s=1:o=1364:p=1284
  7. 50 d=40:e=1:f=40:g=1
  8. 100 ifpeek(k+x+y)=32thenpokek,32:k=k+x+y:poke54272+k,2:pokek,87:goto150
  9. 120 ifpeek(k+x)<>32thenx=-x:goto100
  10. 130 ifpeek(k+y)<>32theny=-y:goto100
  11. 140 x=-x:y=-y
  12. 150 ifpeek(l+v+w)=32thenpokel,32:l=l+v+w:poke54272+l,4:pokel,87:goto200
  13. 160 ifpeek(l+v)<>32thenv=-v:goto150
  14. 170 ifpeek(l+w)<>32thenw=-w:goto150
  15. 180 v=-v:w=-w
  16. 200 ifpeek(m+t+u)=32thenpokem,32:m=m+t+u:poke54272+m,14:pokem,87:goto250
  17. 210 ifpeek(m+t)<>32thent=-t:goto200
  18. 220 ifpeek(m+u)<>32thenu=-u:goto200
  19. 230 t=-t:u=-u
  20. 250 ifpeek(n+r+s)=32thenpoken,32:n=n+r+s:poke54272+n,5:poken,87:goto300
  21. 260 ifpeek(n+r)<>32thenr=-r:goto250
  22. 270 ifpeek(n+s)<>32thens=-s:goto250
  23. 280 r=-r:s=-s
  24. 300 ifpeek(o+d+e)=32thenpokeo,32:o=o+d+e:poke54272+o,10:pokeo,87:goto350
  25. 310 ifpeek(o+d)<>32thend=-d:goto300
  26. 320 ifpeek(o+e)<>32thene=-e:goto300
  27. 330 d=-d:e=-e
  28. 350 ifpeek(p+f+g)=32thenpokep,32:p=p+f+g:poke54272+p,3:pokep,87:goto100
  29. 360 ifpeek(p+f)<>32thenf=-f:goto350
  30. 370 ifpeek(p+g)<>32theng=-g:goto350
  31. 380 f=-f:g=-g:goto100
  32.